home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / share / demolar / Quark / data.z / QuarkXPress 4.0 Demo.exe / 0 / PSHD / 1027 < prev    next >
Text File  |  1998-01-08  |  563b  |  10 lines
  1. /colorimage where{pop/clrimg{colorimage}def}
  2.  {/proc{/i 0 def/j 0 def cmy{prc prm pry prk dup/tmpstr X}
  3.  {prk dup dup length 3 idiv 0 exch getinterval/tmpstr X tmpstr}ifelse
  4.  {cmy{1 index i get 3 index i get add 4 index i get add 3 div
  5.  255 2 index sub 255 div mul add round cvi 255 exch sub 1}
  6.  {pop dup i 3 getinterval{}forall .11 mul exch .59 mul add exch .3 mul
  7.  add round cvi 3}ifelse i add/i X tmpstr j 3 -1 roll put/j j 1 add def}forall
  8.  cmy{p3}{pop}ifelse tmpstr}B
  9.  /clrimg{4 eq/cmy X pop/prk X cmy{/pry X/prm X/prc X}if/proc load image}B}ifelse
  10.